home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / PROGTOOL / EUPHOR10.ZIP;1 / SETUPDIR.EX < prev    next >
Encoding:
Text File  |  1993-07-07  |  2.3 KB  |  78 lines
  1.     ------------------------------------------------------------------
  2.     -- Set up proper subdirectory structure for Euphoria files.     --
  3.     -- This is run as part of the install process for euphor10.zip. --
  4.     -- See readme.doc and install.doc.                --
  5.     -- usage:  ex setupdir                                          --
  6.     ------------------------------------------------------------------
  7.  
  8. constant file_list = {
  9.   {"DOC", 
  10.    "ED.DOC", "HELP.E", "MINIMAN.DOC", "GOALS.DOC", "C.DOC", "BASIC.DOC"},
  11.  
  12.   {"DEMO",
  13.    "PLOT3D.EX", "DICE.EX", "ANIMAL.EX", "MSET.EX", "ALLSORTS.EX",  
  14.    "EXAMPLE.EX", "SB.EX", "SELECT.E", "TTT.EX", "SIMPLE.EX", "WIRE.EX",  
  15.    "SANITY.EX", "GET.TST", "MOUSE.EX", "DEMO.DOC"},
  16.  
  17.   {"DEMO\\LEARN", 
  18.    "LEARN.EX", "LEARN.DAT", "LEARN.DOC"},
  19.  
  20.   {"DEMO\\LANGWAR", 
  21.    "WEAPONS.E", "SCREEN.E", "COMMANDS.E", "DAMAGE.E",  
  22.    "DISPLAY.E", "EMOVE.E", "ENEMY.E", "SCHED.E", "VARS.E", "SOUNDEFF.E",  
  23.    "LW.DOC", "LW.SUM", "LW.EX"},   
  24.  
  25.   {"DEMO\\BENCH", 
  26.    "DATABASE.EX", "SIEVE.C", "SIEVE.BAS", "SHELL.EX",  
  27.    "DATABASE.BAS", "DATABASE.C", "SHELL.BAS", "SHELL.C", "SIEVE.EX", 
  28.    "FILESORT.EX", "DATABASE.PRO", "SIEVE.PRO", "SHELL.PRO",  
  29.    "SHELL.PAS", "SIEVE.PAS", "BENCH.DOC"},
  30.   
  31.   {"INCLUDE", 
  32.    "GRAPHICS.E", "SORT.E", "GET.E", "MOUSE.E"},  
  33.  
  34.   {"BIN", 
  35.    "GREP.EX", "SYNCOLOR.E", "LINES.EX", "EPRINT.EX", "ED.BAT",  
  36.    "GREP.BAT", "LINES.BAT", "GETNAMES.E", "DOS4GW.EXE", "EPRINT.BAT",  
  37.    "RETAB.EX", "ED.EX", "INSTALL.EX", "EX.EXE", "BIN.DOC"},
  38.  
  39.   {"BIN\\PDOMAIN", "PD.DOC"}
  40. }
  41.  
  42. procedure move(sequence source, sequence dest)
  43.     sequence command
  44.  
  45.     command = "copy " & source & " " & dest
  46. --  puts(1, command & '\n')
  47.     system(command, 2) 
  48.     
  49.     command = "del " & source
  50. --  puts(1, command & '\n')
  51.     system(command, 2)
  52. end procedure
  53.  
  54. procedure moveall()
  55.     sequence command
  56.     integer f
  57.  
  58.     f = open("bin\\ex.exe", "rb")
  59.     if f != -1 then
  60.     close(f)
  61.     puts(1, "Subdirectory structure has been set up\n")
  62.     return
  63.     end if
  64.     puts(1, "Creating Euphoria Subdirectories ...\n\n")
  65.     for i = 1 to length(file_list) do
  66.     command = "mkdir " & file_list[i][1]
  67.     puts(1, command & '\n')
  68.     system(command, 2) 
  69.     for j = 2 to length(file_list[i]) do
  70.         move(file_list[i][j], file_list[i][1])
  71.     end for
  72.     end for
  73. end procedure
  74.  
  75. moveall()
  76.  
  77.  
  78.